home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / cmd_generic.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  1.2 KB  |  46 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::cmd_generic;
  11. use strict;
  12. use base 'Msf::PayloadComponent::CommandPayload';
  13. sub _Load {
  14.   Msf::PayloadComponent::CommandPayload->_Import('Msf::PayloadComponent::NoConnection');
  15.   __PACKAGE__->SUPER::_Load();
  16. }
  17.  
  18. my $info =
  19. {
  20.   'Name'         => 'Arbitrary Command',
  21.   'Version'      => '$Revision: 1.19 $',
  22.   'Description'  => 'Run a specific command on the remote system',
  23.   'Authors'      => [ 'H D Moore <hdm [at] metasploit.com>', ],
  24.   'Priv'         => 0,
  25.   'UserOpts'     =>
  26.     {
  27.       'CMD' => [1, 'DATA', 'The command to execute'],
  28.     },
  29. };
  30.  
  31. sub new {
  32.   _Load();
  33.   my $class = shift;
  34.   my $hash = @_ ? shift : { };
  35.   $hash = $class->MergeHashRec($hash, {'Info' => $info});
  36.   my $self = $class->SUPER::new($hash, @_);
  37.   return($self);
  38. }
  39.  
  40. sub CommandString {
  41.   my $self = shift;
  42.   return($self->GetVar('CMD'));
  43. }
  44.  
  45. 1;
  46.